home *** CD-ROM | disk | FTP | other *** search
- { %filename% -- modeless dialog }
- { Created %date% %time% by AppMaker }
-
- { This module overrides the AppMaker-generated code in z%dlogname%.% %}
- { It provides a place for you to add your own code and still be able to }
- { generate code for new changes to the user interface. This module will }
- { not be regenerated by AppMaker unless you delete it. Its superclass, }
- { z%dlogname%, may be regenerated to handle user interface changes% %}
- { without losing your hand-coded changes to this module. }
-
- Unit %unitname%;
- Interface
-
- Uses
- TCL,
- AMCL,
- z%AppName%Intf,
- %AppName%Intf;
-
- {----------}
- Implementation
-
- %for each item gen Make%
- {----------}
- Procedure C%dlogname%.DoCommand (theCommand: longint);
- Begin
- case theCommand of
- 0: ;
- otherwise
- inherited DoCommand (theCommand);
- end; {case}
- End; {DoCommand}
-
- End. {%unitname%}